home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Graphics Programming (2nd Edition) / Visual Basic Graphics Programming 2nd Edition.iso / OldSrc / CH3 / SRC / MKFONT.BAS < prev    next >
BASIC Source File  |  1996-01-26  |  3KB  |  74 lines
  1. Attribute VB_Name = "MkFont"
  2. Option Explicit
  3.  
  4. ' Font weight constants.
  5. Public Const FW_DONTCARE = 0
  6. Public Const FW_THIN = 100
  7. Public Const FW_EXTRALIGHT = 200
  8. Public Const FW_LIGHT = 300
  9. Public Const FW_NORMAL = 400
  10. Public Const FW_MEDIUM = 500
  11. Public Const FW_SEMIBOLD = 600
  12. Public Const FW_BOLD = 700
  13. Public Const FW_EXTRABOLD = 800
  14. Public Const FW_HEAVY = 900
  15. Public Const FW_ULTRALIGHT = FW_EXTRALIGHT
  16. Public Const FW_REGULAR = FW_NORMAL
  17. Public Const FW_DEMIBOLD = FW_SEMIBOLD
  18. Public Const FW_ULTRABOLD = FW_EXTRABOLD
  19. Public Const FW_BLACK = FW_HEAVY
  20.  
  21. ' Character set constants.
  22. Public Const ANSI_CHARSET = 0
  23. Public Const DEFAULT_CHARSET = 1
  24. Public Const SYMBOL_CHARSET = 2
  25. Public Const SHIFTJIS_CHARSET = 128
  26. Public Const OEM_CHARSET = 255
  27.  
  28. ' Output precision constants.
  29. Public Const OUT_CHARACTER_PRECIS = 2
  30. Public Const OUT_DEFAULT_PRECIS = 0
  31. Public Const OUT_DEVICE_PRECIS = 5
  32. Public Const OUT_RASTER_PRECIS = 6
  33. Public Const OUT_STRING_PRECIS = 1
  34. Public Const OUT_STROKE_PRECIS = 3
  35. Public Const OUT_TT_ONLY_PRECIS = 7
  36. Public Const OUT_TT_PRECIS = 4
  37.  
  38. ' Clipping precision constants.
  39. Public Const CLIP_CHARACTER_PRECIS = 1
  40. Public Const CLIP_DEFAULT_PRECIS = 0
  41. Public Const CLIP_EMBEDDED = &H80
  42. Public Const CLIP_LH_ANGLES = &H10
  43. Public Const CLIP_STROKE_PRECIS = 2
  44. Public Const CLIP_TO_PATH = 4097
  45. Public Const CLIP_TT_ALWAYS = &H20
  46.  
  47. ' Character quality constants.
  48. Public Const DEFAULT_QUALITY = 0
  49. Public Const DRAFT_QUALITY = 1
  50. Public Const PROOF_QUALITY = 2
  51.  
  52. ' Pitch and family constants.
  53. Public Const DEFAULT_PITCH = 0
  54. Public Const FIXED_PITCH = 1
  55. Public Const VARIABLE_PITCH = 2
  56. Public Const TRUETYPE_FONTTYPE = &H4
  57. Public Const FF_DECORATIVE = 80 '  Old English, etc.
  58. Public Const FF_DONTCARE = 0    '  Don't care or don't know.
  59. Public Const FF_MODERN = 48     '  Constant stroke width, serifed or sans-serifed.
  60. Public Const FF_ROMAN = 16      '  Variable stroke width, serifed.
  61. Public Const FF_SCRIPT = 64     '  Cursive, etc.
  62. Public Const FF_SWISS = 32      '  Variable stroke width, sans-serifed.
  63.  
  64. #If Win32 Then  ' 32-bit VB.
  65.     Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal i As Long, ByVal U As Long, ByVal S As Long, ByVal C As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal F As String) As Long
  66.     Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
  67.     Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
  68. #Else           ' 16-bit VB.
  69.     Declare Function CreateFont Lib "GDI" (ByVal H As Integer, ByVal W As Integer, ByVal E As Integer, ByVal O As Integer, ByVal W As Integer, ByVal i As Integer, ByVal U As Integer, ByVal S As Integer, ByVal C As Integer, ByVal OP As Integer, ByVal CP As Integer, ByVal Q As Integer, ByVal PAF As Integer, ByVal F As String) As Integer
  70.     Declare Function SelectObject Lib "GDI" (ByVal hdc As Integer, ByVal hObject As Integer) As Integer
  71.     Declare Function DeleteObject Lib "GDI" (ByVal hObject As Integer) As Integer
  72. #End If
  73.  
  74.